(hexl-char-after-point): Get rid of mistakenly free variables.

diff --git a/lisp/hexl.el b/lisp/hexl.el
index d561f4a7829e8a1c5bd60c0b3f2d53559a4e8fc4..e8e5e430937043d63935a442a6b802548886aff9 100644 (file)
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -500,9 +500,8 @@ You may also type up to 3 octal digits, to insert a character with that code"
 
 (defun hexl-char-after-point ()
   "Return char for ASCII hex digits at point."
-  (setq lh (char-after (point)))
-  (setq rh (char-after (1+ (point))))
-  (hexl-htoi lh rh))
+  (hexl-htoi (char-after (point))
+            (char-after (1+ (point)))))
 
 (defun hexl-htoi (lh rh)
   "Hex (char) LH (char) RH to integer."